﻿Public Class Inf_natalidad
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then

        End If

    End Sub

    Private Sub TraeDatosDeTasaBruta()
        Dim Rs As ADODB.Recordset
        Dim param(0) As ADODB.Parameter

        'saco el cartel de la furmula'
        lbl_formulaNatalidad.Visible = False

        param(0) = New ADODB.Parameter
        param(0).Name = "@Anio"
        param(0).Type = ADODB.DataTypeEnum.adVarChar
        param(0).Direction = ADODB.ParameterDirectionEnum.adParamInput
        param(0).Value = cboAnioGraf.Text
        param(0).Size = 10


        Rs = Datos.TraerTodos("INFORME_Natalidad_x_Provincia_x_ano", param, "TraeDatosDeTasaBruta - INf_natalidad")

        'muestro el cartel 
        If Rs.RecordCount > 0 Then
            lbl_formulaNatalidad.Visible = True
        End If

        'FG.cargaChart(Chart1, "Tasa Bruta de natalidad por provincia", TipoGrafico.Barra, Rs)
        FG.CargaControlChart_asp(Rs, Chart1, "Tasa bruta de natalidad por provincia", DataVisualization.Charting.SeriesChartType.Bar, True, DataVisualization.Charting.AreaAlignmentOrientations.Horizontal, Drawing.Color.Blue, , , 500, 500, 100, True, , , , 100)




    End Sub
    Private Sub MuestraNatalidadNivelPAis()
        Dim Rs As ADODB.Recordset
        Dim param(0) As ADODB.Parameter

        'seteo el panel 
        P_datosNIvelPaid.Visible = False



        param(0) = New ADODB.Parameter
        param(0).Name = "@Anio"
        param(0).Type = ADODB.DataTypeEnum.adVarChar
        param(0).Direction = ADODB.ParameterDirectionEnum.adParamInput
        param(0).Value = cboAnioGraf.Text
        param(0).Size = 10


        Rs = Datos.TraerTodos("INFORME_Natalidad_NivelPAis_x_ano", param, "MuestraNatalidadNivelPAis-inf_natalidad")

        If Rs.RecordCount > 0 Then
            P_datosNIvelPaid.Visible = True
        Else
            Exit Sub
        End If


        Img_natalidadAnivelPais.ImageUrl = FG.DevuelveUrlGoogle_chart_Torta(Rs, TipoGraficoTortaGoogle.TRes_D, 400, 150, "Natalidad Nivel pais", Drawing.Color.Blue)


    End Sub
    Private Sub MuestraNatalidadNivelPAis_x_sexo()

        Dim Rs As ADODB.Recordset
        Dim param(0) As ADODB.Parameter

        'seteo el panel 
        P_natalidad_sexo.Visible = False



        param(0) = New ADODB.Parameter
        param(0).Name = "@Anio"
        param(0).Type = ADODB.DataTypeEnum.adVarChar
        param(0).Direction = ADODB.ParameterDirectionEnum.adParamInput
        param(0).Value = cboAnioGraf.Text
        param(0).Size = 10


        Rs = Datos.TraerTodos("INFORME_Natalidad_NivelPAis_x_Sexo_x_ano", param, "MuestraNatalidadNivelPAis-inf_natalidad")

        If Rs.RecordCount > 0 Then
            P_natalidad_sexo.Visible = True
        Else
            Exit Sub
        End If


        img_natalida_paisX_sexo.ImageUrl = FG.DevuelveUrlGoogle_chart_Torta(Rs, TipoGraficoTortaGoogle.DosDimensiones, 450, 180, "Natalidad discriminada por sexo", Drawing.Color.Blue)



    End Sub

    Private Sub MuestraNatalidadNivelPAis_x_RIESGO()
        Dim Rs As ADODB.Recordset
        Dim param(0) As ADODB.Parameter

        'seteo el panel 
        P_riego.Visible = False



        param(0) = New ADODB.Parameter
        param(0).Name = "@Anio"
        param(0).Type = ADODB.DataTypeEnum.adVarChar
        param(0).Direction = ADODB.ParameterDirectionEnum.adParamInput
        param(0).Value = cboAnioGraf.Text
        param(0).Size = 10


        Rs = Datos.TraerTodos("INFORME_Natalidad_NivelPAis_x_RIESGO_x_ano", param, "MuestraNatalidadNivelPAis-inf_natalidad")

        If Rs.RecordCount > 0 Then
            P_riego.Visible = True
        Else
            Exit Sub
        End If


        Img_riego.ImageUrl = FG.DevuelveUrlGoogle_chart_Torta(Rs, TipoGraficoTortaGoogle.TRes_D, 450, 180, "Riesgo de natalidad-nivel pais", Drawing.Color.Blue)

    End Sub


    Protected Sub btnAnioGraf_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnAnioGraf.Click

        'seteo los controles ''
        P_datosNIvelPaid.Visible = False
        P_natalidad_sexo.Visible = False
        P_riego.Visible = False
        '-------------------------------


        'cargo el chart
        TraeDatosDeTasaBruta()

        'Muestro la natalidad del pais
        MuestraNatalidadNivelPAis()


        'Muestro la natalidad del pais divido el sexo 
        MuestraNatalidadNivelPAis_x_sexo()

        'Muestro  el riesgo 
        MuestraNatalidadNivelPAis_x_RIESGO()

    End Sub
End Class